Notes/Domino 6 and 7 Forum : 4th Repost: Rich Text Item Bug

I have an agent that generates a report via rich text that I call on webquerysave event of a report selection form. This code fails when it tries to append a 2nd table using a rich text paragraph style. The log.nsf says Missing RichTextParagraphStyle object. I use this richtextparagraph syle for another table prior to this table that fails to append without error. I then moved the code that defines the table layout before each append table statement in an effort to troubleshoot. No luck. This same code runs in the notesclient fine when I hard code the key$ in the following code:

Dim rtitem As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim rtt As NotesRichTextTable

Dim rtpStyle As NoptesRichTextParagraphStyle
Dim rtps(1 To 6) As NotesRichTextParagraphStyle

Dim rtpStyle2 As NotesRichTextParagraphStyle
Dim rtps2(1 To 2) As NotesRichTextParagraphStyle

Dim rtpStyle3 As NotesRichTextParagraphStyle
Dim rtps3(1 To 4) As NotesRichTextParagraphStyle
.
.
.
Set rtpStyle = session.CreateRichTextParagraphStyle

If column = 6 Then
rtpStyle.RightMargin = RULER_ONE_INCH * .75
rtpStyle.FirstLineLeftMargin = 0
rtpStyle.LeftMargin = 0
rtpStyle.ALIGNMENT=ALIGN_RIGHT
Else
rtpStyle.RightMargin = RULER_ONE_INCH * .75
rtpStyle.FirstLineLeftMargin = 0
rtpStyle.LeftMargin = 0
rtpStyle.ALIGNMENT=ALIGN_LEFT
End If

Set rtps(column) = rtpStyle
Next

' build cy order table
Call rtitem.AppendTable(1,6,"",RULER_ONE_INCH,rtps)<-- this works without error
.
.
.
.

For column = 1 To 6
Set rtpStyle = session.CreateRichTextParagraphStyle

If column = 6 Then
rtpStyle.RightMargin = RULER_ONE_INCH * .75
rtpStyle.FirstLineLeftMargin = 0
rtpStyle.LeftMargin = 0
rtpStyle.ALIGNMENT=ALIGN_RIGHT
Else
rtpStyle.RightMargin = RULER_ONE_INCH * .75
rtpStyle.FirstLineLeftMargin = 0
rtpStyle.LeftMargin = 0
rtpStyle.ALIGNMENT=ALIGN_LEFT
End If

Set rtps(column) = rtpStyle
Next

Call rtitem.AppendTable(1,6,"",RULER_ONE_INCH,rtps)<--this is where it bombs
Set rtnav=rtitem.CreateNavigator
Call rtnav.FindLastElement(RTELEM_TYPE_TABLE)
.
.
.

The same notesparagraph style that I ued on the table earlier no longer works for some reason and it blows up on the appendtable line. Running this code in the Notes client doesn't have this problem. What is the differencr in running this from the web vs Notes?